﻿Public Class ProductoNegocio

    Public Function listar() As Collection
        Dim dao As New ProductoDAO
        Return dao.listar()
    End Function

    Public Function insertar(ByVal idVenta As Integer, ByVal precio As String, ByVal marca As String, ByVal modelo As String, ByVal serie As String, ByVal cantidad As String, ByVal descripcion As String, ByVal tipo As String, ByVal longitud As String) As Producto

        Dim omen As New Producto()
        omen.idventa = idVenta
        omen.precio = precio
        omen.marca = marca
        omen.modelo = modelo
        omen.serie = serie
        omen.cantidad = cantidad
        omen.descripcion = descripcion
        omen.tipo = tipo
        omen.longitud = longitud


        Dim dao As New ProductoDAO
        Return dao.insertar(omen)
    End Function



    Public Sub actualizar(ByVal idProducto As Integer, ByVal idVenta As Integer, ByVal precio As String, ByVal marca As String, ByVal modelo As String, ByVal serie As String, ByVal cantidad As String, ByVal descripcion As String, ByVal tipo As String, ByVal longitud As String)

        Dim omen As New Producto()
        omen.idproducto = idProducto
        omen.idventa = idVenta
        omen.precio = precio
        omen.marca = marca
        omen.modelo = modelo
        omen.serie = serie
        omen.cantidad = cantidad
        omen.descripcion = descripcion
        omen.tipo = tipo
        omen.longitud = longitud


        Dim dao As New ProductoDAO
        dao.actualizar(omen)
    End Sub


    Public Sub eliminar(ByVal idProducto As Integer)
        Dim dao As New ProductoDAO
        dao.eliminar(idProducto)
    End Sub


    Public Function buscarPorNombre(ByVal tipo As String) As Collection
        Dim dao As New ProductoDAO
        Return dao.buscarPorNombre(tipo)
    End Function











End Class
